;midi in
(define io:midi-in 
  (lambda (dev type channel a b)
     (if (= dev src)
         (for-each (lambda (o)
             (au:midi-out (now) o type channel a b))
         (get-obj-for-key-with-default channel *kR:midi-ch-to-instr* '())))))

; engage caps-lock to receive caps key strokes
; caps key down message
(define io:caps-key-down
   (lambda (key)
      (if (assoc key *kR:keys*)
          ((cdr (assoc key *kR:keys*)) #t))))

; engage caps-lock to receive caps key strokes
; caps key up message
(define io:caps-key-up
   (lambda (key)
      (if (assoc key *kR:keys*)
          ((cdr (assoc key *kR:keys*)) #f))))